﻿namespace InkType.Util

open System
open System.Collections.Generic
open System.Windows
open System.Windows.Controls
open System.Windows.Controls.Primitives
open System.Windows.Markup


type EnumValuesExtension (enumType) =
    inherit MarkupExtension ()

    new () = EnumValuesExtension (null)

    member val EnumType : Type = enumType with get, set

    override x.ProvideValue _ =
        box (Enum.GetValues x.EnumType)

